home *** CD-ROM | disk | FTP | other *** search
- Graftext.pas July 6, 1989
-
-
-
- A Unit for Fast display of Text in Graphics mode.
-
- Includes 8, 14, 16, and 19 line fonts.
-
- A faster but more limited alternative to OutTextXY.
-
- Works only on horizontal 8 pixel boundaries, but on any scan line.
-
- Designed for EGA/VGA only.
-
- Uses built in fonts (.OBJ files in TPU)
-
- Uses PITCH variable to allow varying number of bytes per scan line.
-
- New procedure, SetGfont, to select fonts instead of including font in call.
-
- Supports SetActivePage and SetVisualPage functions of GRAPH unit when
- using 350 line EGA modes.
-
-
-
- {Author: Tim Godfrey, 72617,2125 }
-
-
- REVISION HISTORY:
-
- Version of 27 Jan 89
-
- Fixed bug in ASMs causing eventual stack overflow
-
- Added SetYOfset to allow "Pseudo Paging" for EGA modes
- to write on second page, just add 350 to Y coordinates
-
-
- Version of 1 Feb 89
-
- Added true paging support of SetActivePage and
- SetVisualPage from the Graph Unit
-
-
- Version of 7 Jul 89
-
- Added new Procedure SetGfont, eliminating requirement
- of passing the font data size and pointer with every GRAFTEXT call.
- Made asm files near calls with intermediate procedures to include font data.
-
- Improved optimization of assembler code for speed, especially in GtxtTran.
-
- Added Pitch variable to support pixels per line other
- than 640. Pitch is number of _bytes_ per scan line. Set pitch when graphics
- are initialized if you are using any modes other than 640 pixels per line.
-
-
-
-
- Note: If you already use Graftext in your programs, you will have to remove
- the font information from the calls to Gtxtsol and Gtxttran when you
- re-compile. Sorry for the inconvenience, but I think think that
- "encapsulating" the font information is a better approach and will make
- using Graftext easier in the future. The default font is 8x14. If you
- are using another size font, make sure to add a SetGfont() statement to
- select it.